{-
module Submenu where 

import Addressbook

-- KONTAKTY

showContact (DB c g) = do putStrLn ( contactsToString c )
                          manageContacts (DB c g)
 
menuInsertContact (DB c g) = do putStrLn "====================================="
                                putStr "Podaj imie: "
                                name <- getLine
                                putStr "Podaj nazwisko: "
                                surname <- getLine

menuUpdateContact (DB c g) = do putStrLn "====================================="
                                putStr "Podaj id kontaktu: "
                                id <- getLine
                                 
menuDeleteContact (DB c g) = do putStrLn "====================================="
                                putStr "Podaj id kontaktu: "
                                id <- getLine
                                manageContacts ( DB ( menuDeleteContact c id ) g )        

-- GRUPY
                                 
menuShowGroups (DB c g) = do putStrLn "====================================="
                             manageGroups ( DB c g )  

menuAddGroups (DB c g) = do putStrLn "====================================="
                            manageGroups ( DB c g )
                             
menuUpdateGroups (DB c g) = do putStrLn "====================================="
                               manageGroups ( DB c g )
                             
menuSumGroups (DB c g) = do putStrLn "====================================="
                            manageGroups ( DB c g )
                             
menuManageMembers (DB c g) = do putStrLn "====================================="
                                manageGroups ( DB c g )
                             
menuDeleteGroups (DB c g) = do putStrLn "====================================="
                               manageGroups ( DB c g )

-- SZUKAJKI
                             
findContact (DB c g) = do putStrLn "====================================="
                          find ( DB c g )
                             
findMembers (DB c g) = do putStrLn "====================================="
                          find ( DB c g )
                             
-- KTO MA DZISIAJ URODZINY

whereIsParty (DB c g) = error "w DUPENCJE!"
        -}